﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class RptpagocomFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As RptpagocomBE
        Dim tmpRptpagocom As RptpagocomBE = New RptpagocomBE()
        Try
            With tmpRptpagocom
                .Comision = convertDTFromDb.ConvertDecimal(dr.Item("Comision"))
                .FormaP = convertDTFromDb.ConvertString(dr.Item("FormaP"))
                .FPago = convertDTFromDb.convertDateTime(dr.Item("FPago"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .IdPago = convertDTFromDb.convertInt32(dr.Item("IdPago"))
                .Ref = convertDTFromDb.ConvertString(dr.Item("Ref"))
                .Usr = convertDTFromDb.ConvertString(dr.Item("Usr"))
                .Vendedor = convertDTFromDb.ConvertString(dr.Item("Vendedor"))
            End With
            Return tmpRptpagocom
        Catch ex As Exception
            Throw
        Finally
            tmpRptpagocom = Nothing
        End Try
    End Function
End Class
